home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 30 / Amiga Format AFCD30 (Sep 1998, Issue 114).iso / -seriously_amiga- / graphics / amicad / installation français < prev    next >
Text File  |  1998-06-18  |  11KB  |  350 lines
  1. ;------------------------------------------------------------------------
  2. ; Script d'installation du programme AmiCAD
  3. ;
  4. ; $VER: AmiCAD-Install 1.3 (06.05.98)
  5. ;
  6. ; (C)1997-1998 R.Florac
  7.  
  8. (set #AmiCADdestdir-help "Un répertoire AmiCAD sera créé à l'endroit que vous aurez choisi,\ns'il n'existait pas déjà.\nLe logiciel et ses bibliothèques y seront copiés.")
  9.  
  10. ;****************************************************************************
  11. ; Choix du répertoire destination *******************************************
  12. ;****************************************************************************
  13.  
  14. (set #destination
  15.     (expandpath
  16.     (askdir
  17.         (prompt "Où voulez vous créer le répertoire AmiCAD?")
  18.         (help #AmiCADdestdir-help)
  19.         (default @default-dest)
  20.         (disk)
  21.     )
  22.     )
  23. )
  24.  
  25. (set @default-dest (tackon #destination "AmiCAD"))
  26.  
  27. (if (= 0 (askbool
  28.     (prompt "Le répertoire destination pour AmiCAD\nsera "@default-dest)
  29.     (choices "Continuer" "Arrêter")
  30.     (help "Si le répertoire spécifié ne vous convient pas, choisissez 'Arrêter': vous devrez relancer le programme d'installation et choisir une autre destination.")
  31.     ))
  32.     (exit (quiet))
  33. )
  34.  
  35. ;****************************************************************************
  36. ; Création des répertoires destination **************************************
  37. ;****************************************************************************
  38.  
  39. (makedir (tackon @default-dest "Bibliothèques"))
  40. (makedir (tackon @default-dest "Schémas") (infos))
  41. (makedir (tackon @default-dest "Clips"))
  42. (makedir (tackon @default-dest "ARexx"))
  43.  
  44. ;****************************************************************************
  45. ; Copie des fichiers du répertoire AmiCAD ***********************************
  46. ;****************************************************************************
  47.  
  48. (copyfiles
  49.     (source "")
  50.     (dest @default-dest)
  51.     (pattern "AmiCAD#?")
  52.     (prompt "Choisissez les fichiers à copier")
  53.     (help (cat "Sélectionnez les fichiers que vous voulez copier, seuls ceux qui sont marqués le seront.\nAmiCAD est le fichier programme\nAmiCAD.keys est le fichier contenant des définitions de touches programmables\n"
  54.     "AmiCAD.prefs est le fichier définissant les options de fonctionnement du programme (préférences)\nAmiCAD.palette est un fichier de configuration contenant une palette avec le fond d'écran noir, "
  55.     "ce fichier peut être chargé à l'aide du menu Préférences"))
  56.     (confirm)
  57.     (infos)
  58. )
  59.  
  60. ;****************************************************************************
  61. ; Copie des bibliothèques de symboles ***************************************
  62. ;****************************************************************************
  63.  
  64. (copyfiles
  65.     (source "Bibliothèques")
  66.     (dest (tackon @default-dest "Bibliothèques"))
  67.     (pattern "#?")
  68.     (prompt "Choisissez les fichiers\n de symboles à copier\nATTENTION: le format de ces fichiers a changé dans la version 1.2, remplacez vos anciens fichiers par les nouveaux. D'autre part certains fichiers ont été mis à jour.")
  69.     (help "Sélectionnez les fichiers que vous voulez copier, seuls ceux qui sont marqués le seront.")
  70.     (confirm)
  71.     (infos)
  72. )
  73.  
  74. ;****************************************************************************
  75. ; Copie des clips ***********************************************************
  76. ;****************************************************************************
  77.  
  78. (copyfiles
  79.     (source "Clips")
  80.     (dest (tackon @default-dest "Clips"))
  81.     (pattern "#?")
  82.     (prompt "Choisissez les fichiers\n contenant un clip à copier\n")
  83.     (help "Sélectionnez les fichiers que vous voulez copier, seuls ceux qui sont marqués le seront.")
  84.     (confirm)
  85.     (infos)
  86. )
  87.  
  88. ;****************************************************************************
  89. ; Copie des scripts ARexx ***************************************************
  90. ;****************************************************************************
  91.  
  92. (copyfiles
  93.     (source "ARexx")
  94.     (dest (tackon @default-dest "ARexx"))
  95.     (pattern "#?")
  96.     (prompt "Choisissez les scripts ARexx à copier\nDe nombreux scripts ont été améliorés.")
  97.     (help "Sélectionnez les fichiers que vous voulez copier, seuls ceux qui sont marqués le seront.")
  98.     (confirm)
  99.     (infos)
  100. )
  101.  
  102. ;****************************************************************************
  103. ; Copie des schémas d'exemples **********************************************
  104. ;****************************************************************************
  105.  
  106. (copyfiles
  107.     (source "Schémas")
  108.     (dest (tackon @default-dest "Schémas"))
  109.     (pattern "#?")
  110.     (prompt "Choisissez les schémas que vous voulez copier\n")
  111.     (help "Sélectionnez les fichiers à copier, seulement ceux qui sont marqués le seront.")
  112.     (confirm)
  113.     (infos)
  114. )
  115.  
  116. ;****************************************************************************
  117. ; Mise à jour des icones du programme (AmiCAD) ******************************
  118. ;****************************************************************************
  119.  
  120. (tooltype
  121.     (prompt "Écriture type d'outil LIBS")
  122.     (dest (tackon @default-dest "AmiCAD"))
  123.     (settooltype "LIBS" (tackon @default-dest "Bibliothèques"))
  124. )
  125.  
  126. (tooltype
  127.     (prompt "Écriture type d'outil CLIPS")
  128.     (dest (tackon @default-dest "AmiCAD"))
  129.     (settooltype "CLIPS" (tackon @default-dest "Clips"))
  130. )
  131.  
  132. (tooltype
  133.     (prompt "Écriture type d'outil HELPFILE")
  134.     (dest (tackon @default-dest "AmiCAD"))
  135.     (settooltype "HELPFILE" (tackon @default-dest "AmiCAD.guide"))
  136. )
  137.  
  138. ;****************************************************************************
  139. ; Copie du fichier AmiCAD.guide *********************************************
  140. ;****************************************************************************
  141. (set catalogue 1)
  142. (if (= @language "français") (set catalogue 0))
  143.  
  144. (set catalogues
  145.     (askchoice
  146.         (prompt "Choisissez le guide à installer")
  147.         (help "Le guide anglais n'est juste commencé. Il est constitué pour une très grande partie du catalogue français.")
  148.         (choices "Français" "Anglais")
  149.         (default catalogue)
  150.     )
  151. )
  152.  
  153. (if (= catalogues 0)
  154.     (copyfiles
  155.     (prompt "Copie du guide français")
  156.     (source ("docs/français"))
  157.     (dest (@default-dest))
  158.     (all)
  159.     )
  160. )
  161.  
  162. (if (= catalogues 1)
  163.     (copyfiles
  164.     (prompt "Copie du guide anglais")
  165.     (source ("docs/english"))
  166.     (dest (@default-dest))
  167.     (all)
  168.     )
  169. )
  170.  
  171. ;****************************************************************************
  172. ; Copie des catalogues ******************************************************
  173. ;****************************************************************************
  174.  
  175. (set catalogue 0)
  176. (if (= @language "français") (set catalogue 1))
  177. (if (= @language "deutsch") (set catalogue 2))
  178. (if (= @language "ÃeÓtina") (set catalogue 4))
  179. (if (= @language "español") (set catalogue 8))
  180. (if (= @language "italiano") (set catalogue 16))
  181. (if (= @language "english") (set catalogue 32))
  182. (if (= @language "slovensko") (set catalogue 64))
  183.  
  184. (set catalogues
  185.     (askoptions
  186.         (prompt "Sélectionnez les catalogues que vous voulez copier")
  187.         (help "Seul le catalogue correspondant à votre pays est nécessaire.\nLe logiciel utilise l'anglais par défaut.")
  188.         (choices "Français" "Deutsch" "Czech" "Español" "Italiano" "English" "Slovensko")
  189.         (default catalogue)
  190.     )
  191. )
  192.  
  193. (if (= (BITAND catalogues 1) 1)
  194.     (   (makedir (tackon @default-dest "Catalogs"))
  195.     (copyfiles
  196.         (prompt "Copie du catalogue français")
  197.         (source ("Catalogs/français"))
  198.         (dest   (tackon @default-dest "catalogs/français"))
  199.         (all)
  200.     )
  201.     )
  202. )
  203.  
  204. (if (= (BITAND catalogues 2) 2)
  205.     (   (makedir (tackon @default-dest "Catalogs"))
  206.     (copyfiles
  207.         (prompt "Copie du catalogue allemand")
  208.         (source ("Catalogs/deutsch"))
  209.         (dest   (tackon @default-dest "catalogs/deutsch"))
  210.         (all)
  211.     )
  212.     )
  213. )
  214.  
  215. (if (= (BITAND catalogues 4) 4)
  216.     (   (makedir (tackon @default-dest "Catalogs"))
  217.     (copyfiles
  218.         (prompt "Copie du catalogue tchèque")
  219.         (source ("Catalogs/ÃeÓtina"))
  220.         (dest   (tackon @default-dest "catalogs/ÃeÓtina"))
  221.         (all)
  222.     )
  223.     )
  224. )
  225.  
  226. (if (= (BITAND catalogues 8) 8)
  227.     (   (makedir (tackon @default-dest "Catalogs"))
  228.     (copyfiles
  229.         (prompt "Copie du catalogue espagnol")
  230.         (source ("Catalogs/español"))
  231.         (dest   (tackon @default-dest "catalogs/español"))
  232.         (all)
  233.     )
  234.     )
  235. )
  236.  
  237. (if (= (BITAND catalogues 16) 16)
  238.     (   (makedir (tackon @default-dest "Catalogs"))
  239.     (copyfiles
  240.         (prompt "Copie du catalogue italien")
  241.         (source ("Catalogs/italiano"))
  242.         (dest   (tackon @default-dest "catalogs/italiano"))
  243.         (all)
  244.     )
  245.     )
  246. )
  247.  
  248. (if (= (BITAND catalogues 32) 32)
  249.     (   (makedir (tackon @default-dest "Catalogs"))
  250.     (copyfiles
  251.         (prompt "Copie du catalogue anglais")
  252.         (source ("Catalogs/english"))
  253.         (dest   (tackon @default-dest "catalogs/english"))
  254.         (all)
  255.     )
  256.     )
  257. )
  258.  
  259. (if (= (BITAND catalogues 64) 64)
  260.     (   (makedir (tackon @default-dest "Catalogs"))
  261.     (copyfiles
  262.         (prompt "Copie du catalogue slovène")
  263.         (source ("Catalogs/slovensko"))
  264.         (dest   (tackon @default-dest "catalogs/slovensko"))
  265.         (all)
  266.     )
  267.     )
  268. )
  269.  
  270. ;****************************************************************************
  271. ; Copie des sources des catalogues ******************************************
  272. ;****************************************************************************
  273. (set catalogues
  274.     (askbool
  275.         (prompt "Voulez-vous copier les sources du catalogue?")
  276.         (help "Les fichiers sources sont nécessaires uniquement si vous voulez créer un nouveau catalogue, pour un pays pour lequel il n'existe pas.")
  277.         (default 0)
  278.     )
  279. )
  280.  
  281.  
  282. (if (= catalogues 1)
  283.     (   (set sources
  284.         (askoptions
  285.         (prompt "Sélectionnez les catalogues que vous voulez copier")
  286.         (help "Seul le catalogue correspondant à votre pays est nécessaire.\nLe logiciel utilise l'anglais par défaut, sauf pour les bibliothèques de symboles pour lesquelles il utilise le français.")
  287.         (choices "Français" "Deutsch" "Czech" "Italiano" "english")
  288.         (default catalogue)
  289.         )
  290.     )
  291.     (if (= (BITAND sources 1) 1)
  292.         (   (makedir (tackon @default-dest "Catalogs"))
  293.         (copyfiles
  294.             (prompt "Copie du catalogue français")
  295.             (source ("Catalogs"))
  296.             (pattern ("#?.(français.ct|cd)"))
  297.             (dest   (tackon @default-dest "catalogs"))
  298.             (files)
  299.         )
  300.         )
  301.     )
  302.     (if (= (BITAND sources 2) 2)
  303.         (   (makedir (tackon @default-dest "Catalogs"))
  304.         (copyfiles
  305.             (prompt "Copie du catalogue allemand")
  306.             (source ("Catalogs"))
  307.             (pattern ("#?.(deutsch.ct|cd)"))
  308.             (dest   (tackon @default-dest "catalogs"))
  309.             (files)
  310.         )
  311.         )
  312.     )
  313.     (if (= (BITAND sources 4) 4)
  314.         (   (makedir (tackon @default-dest "Catalogs"))
  315.         (copyfiles
  316.             (prompt "Copie du catalogue tchèque")
  317.             (source ("Catalogs"))
  318.             (pattern ("#?.(ÃeÓtina.ct|cd)"))
  319.             (dest   (tackon @default-dest "catalogs"))
  320.             (files)
  321.         )
  322.         )
  323.     )
  324.     (if (= (BITAND sources 8) 8)
  325.         (   (makedir (tackon @default-dest "Catalogs"))
  326.         (copyfiles
  327.             (prompt "Copie du catalogue italien")
  328.             (source ("Catalogs"))
  329.             (pattern ("#?.(italiano.ct|cd)"))
  330.             (dest   (tackon @default-dest "catalogs"))
  331.             (files)
  332.         )
  333.         )
  334.     )
  335.     (if (= (BITAND sources 16) 16)
  336.         (   (makedir (tackon @default-dest "Catalogs"))
  337.         (copyfiles
  338.             (prompt "Copie du catalogue anglais")
  339.             (source ("Catalogs"))
  340.             (pattern ("#?.(english.ct|cd)"))
  341.             (dest   (tackon @default-dest "catalogs"))
  342.             (files)
  343.         )
  344.         )
  345.     )
  346.     )
  347. )
  348.  
  349. (exit)
  350.